home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Perils of Palermo.cpt / Perils of Palermo / card_6458.txt < prev    next >
Text File  |  1987-11-16  |  2KB  |  113 lines
  1. -- card: 6458 from stack: in
  2. -- bmap block id: 4194
  3. -- flags: 0000
  4. -- background id: 6089
  5. -- name: Oops
  6. ----- HyperTalk script -----
  7.  
  8. on opencard
  9.   global messagestring
  10.   global messagestring2
  11.   put empty into card field "oops"
  12.   put empty into card field "oops2"
  13.   set textfont of card field "oops" to Geneva
  14.   set textsize of card field "oops" to 14
  15.   set textfont of card field "oops2" to Geneva
  16.   set textsize of card field "oops2" to 14
  17.   Click at the loc of card field "oops"
  18.   Type messagestring
  19.   Click at the loc of card field "oops2"
  20.   Type messagestring2 & return
  21.   Type "The game is over." & return
  22.   play harpsichord tempo 300 f4 g f eb d eb c
  23.   wait until the sound is "done"
  24. end opencard
  25.  
  26.  
  27. -- part 1 (field)
  28. -- low flags: 00
  29. -- high flags: 0002
  30. -- rect: left=292 top=83 right=153 bottom=487
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 14
  36. -- style flags: 0
  37. -- line height: 18
  38. -- part name: Oops
  39.  
  40.  
  41. -- part 2 (field)
  42. -- low flags: 00
  43. -- high flags: 0002
  44. -- rect: left=292 top=184 right=254 bottom=487
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 14
  50. -- style flags: 0
  51. -- line height: 18
  52. -- part name: Oops2
  53.  
  54.  
  55. -- part 3 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=218 top=298 right=336 bottom=262
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 11045 / 11045
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Home
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   visual effect iris close
  70.   go home
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 4 (button)
  76. -- low flags: 00
  77. -- high flags: 0000
  78. -- rect: left=445 top=289 right=334 bottom=487
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Nick
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   visual iris close very slowly to gray
  90.   go to first card
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=261 top=301 right=339 bottom=305
  99. -- title width / last selected line: 65535
  100. -- icon id / first selected line: -15707 / 49829
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Home
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   visual effect iris close
  110.   domenu Quit Hypercard
  111. end mouseUp
  112.  
  113.